home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / MP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  537 b   |  22 lines
  1. 10  LOCATE 1,1,0
  2. 20  KEY OFF
  3. 30  SCREEN 0,0,0
  4. 40  CLS
  5. 50  C = 78
  6. 60  V = 76
  7. 70  A = 1 : B = 22
  8. 80  LET LT$ = CHR$(201):RT$ = CHR$(187):RB$ = CHR$(188):LB$ = CHR$(200):LI$ = STRING$(V,205)
  9. 90  LOCATE A,A:PRINT LT$:LOCATE A,(A+1):PRINT LI$:LOCATE A,C:PRINT RT$
  10. 100  LOCATE B,A:PRINT LB$:LOCATE B,(A + 1):PRINT LI$:LOCATE B,C:PRINT RB$
  11. 110  FOR F = (A+1) TO (B-1):LOCATE F,A:PRINT CHR$(186):LOCATE F,C:PRINT CHR$(186):NEXT F
  12. 120  C = C - 1
  13. 130  V = V -2       
  14. 140  A = A +1
  15. 150  IF A > 10 THEN 190
  16. 160  B = B -1
  17. 170  MO$ ="M  A  T  H    P  A  K "
  18. 180  GOTO 80
  19. 190  LOCATE 11,25:COLOR 15:PRINT "W E L C O M E   T O  M A T H  P A K":COLOR 7,0
  20. 200  LOCATE 12,35:PRINT "(C)1984 Dan Dalal "
  21. 210  CHAIN"flow"
  22.